home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / reflag1.zip / REFLAG.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-04  |  2KB  |  154 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   STRING001
  24.     String   TSTRING002(200)
  25.     String   TSTRING003(200)
  26.  
  27. ;------------------------------------------------------------------------------
  28.  
  29.     INTEGER001 = 0
  30.     If (Exist(PPEPath() + "B" + String(U_RecNum(U_Name()))) == 0) Then
  31.         Goto LABEL003
  32.     Endif
  33.     If (FileInf(PPEPath() + "B" + String(U_RecNum(U_Name())), 4) < 3) Goto LABEL003
  34.     DispFile PPEPath() + PPEName() + ".hdr", 0
  35.     Newline
  36.     PrintLn "@X0F               The following file(s) are @X8Ein your download queue@X0A:@X0E"
  37.     FOpen 1, PPEPath() + "B" + String(U_RecNum(U_Name())), 0, 3
  38.     Newline
  39.     :LABEL001
  40.     INTEGER001 = INTEGER001 + 1
  41.     If (Ferr(1) == 0) Then
  42.         FGet 1, TSTRING002(INTEGER001)
  43.         Gosub LABEL002
  44.         If (Trim(TSTRING003(INTEGER001), " ") <> "") Print Left(TSTRING003(INTEGER001), 16)
  45.         Goto LABEL001
  46.     Endif
  47.     FClose 1
  48.     If (Trim(TSTRING002(1), " ") == "") Goto LABEL003
  49.     Newlines 2
  50.     STRING001 = "Y"
  51.     InputStr "@X0F            Would you like to reflag these file(s) for download@X0A@X0A", STRING001, 8, 1, "YNyn", 8 + 2
  52.     Newline
  53.     If (STRING001 == "N") Stop
  54.     PrintLn "@X0E"
  55.     INTEGER003 = 0
  56.     For INTEGER002 = 1 To INTEGER001 - 1
  57.         If (Exist(TSTRING002(INTEGER002)) == 0) Then
  58.             If (Trim(TSTRING003(INTEGER002), " ") <> "") PrintLn "@X0C                    " + TSTRING003(INTEGER002) + " does not exist anymore !@X0E"
  59.             Continue
  60.         Endif
  61.         Flag TSTRING002(INTEGER002)
  62.         INTEGER003 = 1
  63.         If (Trim(TSTRING003(INTEGER002), " ") <> "") Print Left(TSTRING003(INTEGER002), 16)
  64.     Next
  65.     If (INTEGER003 == 1) PrintLn ""
  66.     Newline
  67.     PrintLn "@X0F                  Your file(s) are now @X0Ereflagged @X0Ffor download."
  68.     End
  69.     :LABEL002
  70.     TSTRING003(INTEGER001) = ""
  71.     INTEGER004 = Len(TSTRING002(INTEGER001))
  72.     For INTEGER002 = 0 To 13
  73.         If (Mid(TSTRING002(INTEGER001), INTEGER004 - INTEGER002, 1) == "\") Then
  74.             TSTRING003(INTEGER001) = Mid(TSTRING002(INTEGER001), INTEGER004 - INTEGER002 + 1, INTEGER002)
  75.             INTEGER002 = 13
  76.         Endif
  77.     Next
  78.     Return
  79.     :LABEL003
  80.     End
  81.  
  82. ;------------------------------------------------------------------------------
  83. ;
  84. ; Usage report (before postprocessing)
  85. ;
  86. ; ■ Statements used :
  87. ;
  88. ;    2       End
  89. ;    13      Goto 
  90. ;    13      Let 
  91. ;    2       Print 
  92. ;    5       PrintLn 
  93. ;    13      If 
  94. ;    1       DispFile 
  95. ;    1       FOpen 
  96. ;    1       FClose 
  97. ;    1       FGet 
  98. ;    1       InputStr 
  99. ;    1       Gosub 
  100. ;    1       Return
  101. ;    4       Newline
  102. ;    1       Newlines 
  103. ;    1       Stop
  104. ;    1       Flag 
  105. ;
  106. ;
  107. ; ■ Functions used :
  108. ;
  109. ;    15      +
  110. ;    4       -
  111. ;    7       ==
  112. ;    3       <>
  113. ;    3       <
  114. ;    2       <=
  115. ;    4       >=
  116. ;    6       !
  117. ;    4       &&
  118. ;    2       ||
  119. ;    1       Len(
  120. ;    2       Mid()
  121. ;    2       Left()
  122. ;    1       Ferr()
  123. ;    4       Trim()
  124. ;    3       U_Name()
  125. ;    3       String()
  126. ;    4       PPEPath()
  127. ;    2       Exist()
  128. ;    1       FileInf()
  129. ;    1       PPEName()
  130. ;    3       U_RecNum()
  131. ;
  132. ;------------------------------------------------------------------------------
  133. ;
  134. ; Analysis flags : f
  135. ;
  136. ; f - Flag files for download ■ 3
  137. ;     This may be normal if a PPE needs to send some files, but since
  138. ;     this statement allows flagging of any file on the hard disk, you
  139. ;     have to be carefull. Check!
  140. ;     ■ Search for : FLAG
  141. ;
  142. ;------------------------------------------------------------------------------
  143. ;
  144. ; Postprocessing report
  145. ;
  146. ;    2       For/Next
  147. ;    0       While/EndWhile
  148. ;    4       If/Then or If/Then/Else
  149. ;    0       Select Case
  150. ;
  151. ;------------------------------------------------------------------------------
  152. ;                 AEGiS Corp - Break the routines, code against the machines!
  153. ;------------------------------------------------------------------------------
  154.